home *** CD-ROM | disk | FTP | other *** search
/ Private Casting / Casting One.bin / Docs / Intro.dir / 00017_Baile.ls < prev    next >
Encoding:
Text File  |  1998-02-21  |  779 b   |  40 lines
  1. on mouseEnter
  2.   cursor([cast "curs", cast "mask"])
  3. end
  4.  
  5. on mouseLeave
  6.   cursor(-1)
  7. end
  8.  
  9. on mouseUp
  10.   global idioma
  11.   cursor(-1)
  12.   set clave to the text of field "password"
  13.   if clave = "15IN6" then
  14.     set idioma to "english"
  15.     set correcto to 1
  16.   else
  17.     if clave = "24FR6" then
  18.       set idioma to "french"
  19.       set correcto to 1
  20.     else
  21.       if clave = "38DE1" then
  22.         set idioma to "deutch"
  23.         set correcto to 1
  24.       else
  25.         if clave = "TRACOR" then
  26.           set idioma to "english"
  27.           set correcto to 1
  28.         else
  29.           alert("Incorrect Password." & RETURN & numToChar(10) & "Try again.")
  30.         end if
  31.       end if
  32.     end if
  33.   end if
  34.   if correcto then
  35.     go("start")
  36.   else
  37.     set the text of field "password" to EMPTY
  38.   end if
  39. end
  40.